home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 December / PCWorld_2007-12_cd.bin / domacnost a kancelar / autoit / autoit-v3-setup.exe / Examples / Helpfile / _GUICtrlTabGetCurFocus.au3 < prev    next >
Text File  |  2007-09-08  |  2KB  |  62 lines

  1. #include <GUIConstants.au3>
  2. #include <GuiTab.au3>
  3.  
  4. opt('MustDeclareVars', 1)
  5.  
  6. Dim $tab, $tab0, $tab0OK, $tab0input, $tab1, $tab1combo, $tab1OK, $tab2, $tab2OK, $tab3, $tab4
  7. Dim $msg, $Status, $current
  8.  
  9. GUICreate("Tab Get Current Focus", 300, 200)  ; will create a dialog box that when displayed is centered
  10.  
  11. GUISetBkColor(0x00E0FFFF)
  12. GUISetFont(9, 300)
  13.  
  14. $tab = GUICtrlCreateTab(10, 10, 200, 100, BitOR($TCS_FLATBUTTONS, $TCS_MULTILINE), $TCS_EX_FLATSEPARATORS)
  15.  
  16. $tab0 = GUICtrlCreateTabItem("tab0")
  17. GUICtrlCreateLabel("label0", 30, 80, 50, 20)
  18. $tab0OK = GUICtrlCreateButton("OK0", 20, 60, 50, 20)
  19. $tab0input = GUICtrlCreateInput("default", 80, 60, 70, 20)
  20. GUICtrlCreateTabItem("") ; end tabitem definition
  21.  
  22. $tab1 = GUICtrlCreateTabItem("tab----1")
  23. GUICtrlCreateLabel("label1", 30, 80, 50, 20)
  24. $tab1combo = GUICtrlCreateCombo("", 20, 60, 60, 40)
  25. GUICtrlSetData(-1, "Trids|CyberSlug|Larry|Jon|Tylo", "Jon") ; default Jon
  26. $tab1OK = GUICtrlCreateButton("OK1", 80, 60, 50, 20)
  27. GUICtrlCreateTabItem("") ; end tabitem definition
  28.  
  29. $tab2 = GUICtrlCreateTabItem("tab2")
  30. GUICtrlSetState(-1, $GUI_SHOW) ; will be display first
  31. GUICtrlCreateLabel("label2", 30, 80, 50, 20)
  32. $tab2OK = GUICtrlCreateButton("OK2", 140, 60, 50)
  33. GUICtrlCreateTabItem("") ; end tabitem definition
  34.  
  35. $tab3 = GUICtrlCreateTabItem("tab3")
  36. GUICtrlCreateTabItem("") ; end tabitem definition
  37.  
  38. $tab4 = GUICtrlCreateTabItem("tab4")
  39. GUICtrlCreateTabItem("") ; end tabitem definition
  40.  
  41. GUICtrlCreateLabel("label3", 20, 130, 50, 20)
  42. $Status = GUICtrlCreateLabel("", 0, 180, 300, 20, BitOR($SS_SUNKEN, $SS_CENTER))
  43.  
  44. GUISetState()
  45.  
  46. $current = _GUICtrlTabGetCurFocus ($tab)
  47. GUICtrlSetData($Status, "Items Current Focus: " & $current)
  48.  
  49. ; Run the GUI until the dialog is closed
  50. While 1
  51.     $msg = GUIGetMsg()
  52.     If ($current <> _GUICtrlTabGetCurFocus ($tab)) Then
  53.         $current = _GUICtrlTabGetCurFocus ($tab)
  54.         GUICtrlSetData($Status, "Items Current Focus: " & $current)
  55.     EndIf
  56.     Select
  57.         Case $msg = $GUI_EVENT_CLOSE
  58.             ExitLoop
  59.     EndSelect
  60. WEnd
  61.  
  62.